Eagles Nest BBS 4/Eagles_Nest_Mac_Collection_Disc_4.TOAST/Desktop Publishing/DTPAdv10/DTP Master Forms/card_10201.txt

Text File | 1988-09-02 | 19KB | 885 lines

-- card: 10201 from stack: in
-- bmap block id: 10282
-- flags: 0000
-- background id: 2580
-- name: Photographer bids
----- HyperTalk script -----
on openCard
  global ProjectName
  put ProjectName into line 1 of card field project

end openCard

on closecard
  hide card field mask
  hide card button mask1
end closecard



-- part 42 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=81 top=70 right=148 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: printer1


-- part 32 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=81 top=154 right=232 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: printer2


-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=8 top=27 right=42 bottom=83
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 4/1/88
----- HyperTalk script -----
on mouseUp
  set the name of me to the date
end mouseUp


-- part 31 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=81 top=238 right=317 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: printer3


-- part 4 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=319 top=70 right=148 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: printer4


-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=290 top=327 right=342 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Add Bid to Worksheet
----- HyperTalk script -----
on mouseUp
  global thebid, contractor, thebid1, contractor1,  copyform
  if copyform is "DTP Master Forms" then
    whatform
    exit mouseup
  end if
  put empty into thebid
  put empty into contractor
  put empty into thebid1
  put empty into contractor1
  repeat with number is 8 to 10
    if the hilight of card button number is true then
      put card field (number-7) into contractor
      put line 6 of card field (number-7) into thebid
      exit repeat
    end if
  end repeat
  repeat with number is 11 to 13
    if the hilight of card button number is true then
      put card field (number-7) into contractor1
      put line 6 of card field (number-7) into thebid1
      exit repeat
    end if
  end repeat
  answer "Add the photographer or illustrator?" with "Photographer" or "Illustrator" or "Cancel"
  if it is "Photographer" then
    if thebid is empty then
      answer "There is no bid to place." with "OK"
      exit mouseup
    end if
    thephotographer
    exit mouseup
  else if it is "Illustrator" then
    if thebid1 is empty then
      answer "There is no bid to place." with "OK"
      exit mouseup
    end if
    theillustrator
    exit mouseup
  end if

end mouseUp

on thephotographer
  global thebid, contractor
  push card
  go card "project management form"
  put contractor into card field photogname
  go card "estimate worksheet"
  repeat with number is 1 to 6
    if line number of card field "a" is "Photographer" then
      put thebid into line number of card field "fees 2"
      exit thephotographer
    else if line number of card field "a" is empty then
      put "Photographer" into line number of card field "a"
      put thebid into line number of card field "fees 2"
      exit thephotographer
    end if
  end repeat
  answer "Fees field is full.  Cannot paste the bid." with "OK"
end thephotographer

on theillustrator
  global thebid1, contractor1
  push card
  go card "project management form"
  put contractor1 into card field artistname
  go card "estimate worksheet"
  repeat with number is 1 to 6
    if line number of card field "a" is "illustrator" then
      put thebid1 into line number of card field "fees 2"
      exit theillustrator
    else if line number of card field "a" is empty then
      put "illustrator" into line number of card field "a"
      put thebid1 into line number of card field "fees 2"
      exit theillustrator
    end if
  end repeat
  answer "Field is full. Cannot paste the bid." with "OK"
end theillustrator





-- part 28 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=319 top=154 right=231 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: printer5


-- part 29 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=319 top=238 right=316 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: printer6


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=258 top=70 right=320 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=1 top=46 right=323 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 2 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=80 top=46 right=63 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Project


-- part 34 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=412 top=327 right=342 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Print
----- HyperTalk script -----
on mouseUp
  global maskstatus
  put "true" into maskstatus
  show card field mask
  show card button mask1
  doMenu "print card"
  hide card button mask1
  hide card field mask
  put false into maskstatus
end mouseUp



-- part 37 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=370 top=309 right=326 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scheduling Help
----- HyperTalk script -----
on mouseenter
  set hilight of me to true
end mouseenter

on mouseleave
  set hilight of me to false
end mouseleave

on mouseUp
  set lockscreen to true
  put 11 into x
  repeat for 3
    hide card button x
    put 1+x into x
  end repeat
  set lockscreen to false
  set hilight of card button "management info" to false
end mouseup


-- part 38 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=370 top=293 right=310 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scheduling Help
----- HyperTalk script -----
on mouseenter
  set hilight of me to true
end mouseenter

on mouseleave
  set hilight of me to false
end mouseleave

on mouseUp
  set lockscreen to true
  put 11 into x
  repeat for 3
    hide card button x
    put 1+x into x
  end repeat
  set lockscreen to false
  set hilight of card button "management info" to false
end mouseup


-- part 39 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=370 top=277 right=294 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scheduling Help
----- HyperTalk script -----
on mouseenter
  set hilight of me to true
end mouseenter

on mouseleave
  set hilight of me to false
end mouseleave

on mouseUp
  set lockscreen to true
  put 11 into x
  repeat for 3
    hide card button x
    put 1+x into x
  end repeat
  set lockscreen to false
  set hilight of card button "management info" to false
end mouseup


-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=0 right=18 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 28672 / 28672
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseup
  show card field "info"
  wait until the mouse is down
  hide card field "Info"
end mouseup


-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=56 top=130 right=143 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then
    repeat with number is 8 to 10
      set hilight of card button number to false
    end repeat
  else if the hilight of me is false then
    repeat with number is 8 to 10
      set hilight of card button number to false
    end repeat
    set hilight of me to true
  end if
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=56 top=214 right=229 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then
    repeat with number is 8 to 10
      set hilight of card button number to false
    end repeat
  else if the hilight of me is false then
    repeat with number is 8 to 10
      set hilight of card button number to false
    end repeat
    set hilight of me to true
  end if
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=57 top=298 right=313 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then
    repeat with number is 8 to 10
      set hilight of card button number to false
    end repeat
  else if the hilight of me is false then
    repeat with number is 8 to 10
      set hilight of card button number to false
    end repeat
    set hilight of me to true
  end if
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=293 top=130 right=145 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then
    repeat with number is 11 to 13
      set hilight of card button number to false
    end repeat
  else if the hilight of me is false then
    repeat with number is 11 to 13
      set hilight of card button number to false
    end repeat
    set hilight of me to true
  end if
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=293 top=214 right=228 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then
    repeat with number is 11 to 13
      set hilight of card button number to false
    end repeat
  else if the hilight of me is false then
    repeat with number is 11 to 13
      set hilight of card button number to false
    end repeat
    set hilight of me to true
  end if
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=298 right=313 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then
    repeat with number is 11 to 13
      set hilight of card button number to false
    end repeat
  else if the hilight of me is false then
    repeat with number is 11 to 13
      set hilight of card button number to false
    end repeat
    set hilight of me to true
  end if
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=166 top=327 right=342 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Management Form
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "project management form"
end mouseup


-- part 35 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=0 top=323 right=343 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseup
  hide me
end mouseup


-- part 52 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=6 top=69 right=82 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Photographer
----- HyperTalk script -----
on mouseUp
  global dtpdb
  push card
  visual wipe up slowly
  go to card "main" of stack dtpdb
  click at the loc of btn "photographer"
  set the hilite of btn "photographer" to true
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=5 top=153 right=166 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Photographer
----- HyperTalk script -----
on mouseUp
  global dtpdb
  push card
  visual wipe up slowly
  go to card "main" of stack dtpdb
  click at the loc of btn "photographer"
  set the hilite of btn "photographer" to true
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=6 top=237 right=250 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Photographer
----- HyperTalk script -----
on mouseUp
  global dtpdb
  push card
  visual wipe up slowly
  go to card "main" of stack dtpdb
  click at the loc of btn "photographer"
  set the hilite of btn "photographer" to true
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=268 top=70 right=83 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Artist
----- HyperTalk script -----
on mouseUp
  global dtpdb
  push card
  visual wipe up slowly
  go to card "main" of stack dtpdb
  click at the loc of btn "artist"
  set the hilite of btn "artist" to true
end mouseUp



-- part 56 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=270 top=152 right=165 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Artist
----- HyperTalk script -----
on mouseUp
  global dtpdb
  push card
  visual wipe up slowly
  go to card "main" of stack dtpdb
  click at the loc of btn "artist"
  set the hilite of btn "artist" to true
end mouseUp



-- part 57 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=269 top=236 right=249 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Artist
----- HyperTalk script -----
on mouseUp
  global dtpdb
  push card
  visual wipe up slowly
  go to card "main" of stack dtpdb
  click at the loc of btn "artist"
  set the hilite of btn "artist" to true
end mouseUp



-- part 58 (button)
-- low flags: 80
-- high flags: 4001
-- rect: left=340 top=0 right=20 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask1
----- HyperTalk script -----
on mouseUp
  set hilight of me to true
  hide card button mask1
end mouseUp



-- part 20 (field)
-- low flags: 80
-- high flags: 2004
-- rect: left=86 top=51 right=283 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 15
-- part name: info


-- part 59 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=45 top=327 right=342 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Estimate Worksheet
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "estimate worksheet"
end mouseup


-- part contents for background part 18
----- text -----
P H O TO G R A P H E R / A R T I S T    B I D S

-- part contents for card part 1
----- text -----
PROJECT:

Photographer:
Contact:
Address:

Phone:
Bid:

Photographer:
Contact:
Address:

Phone:
Bid:

Photographer:
Contact:
Address:

Phone:
Bid:




-- part contents for card part 2
----- text -----
DTP Master Forms





0

-- part contents for card part 3
----- text -----
Artist:
Contact:
Address:

Phone:
Bid:

Artist:
Contact:
Address:

Phone:
Bid:

Artist:
Contact:
Address:

Phone:
Bid:



Notes:

-- part contents for card part 20
----- text -----

Use the PHOTOGRAPHER/ARTIST BID form to record photography and illustration bids for your project.

To enter the name of a photographer/artist, either click the "Photographer"  or "Artist" button to search the database, or type the appropriate information on the lines provided.  Enter the amount of the bid on the appropriate bid line.

When you're ready to select a bid from a photographer or artist, click on the bid title (i.e "Bid:") you wish to use and then click on "Add Bid to Worksheet".  The name of the photographer/artist and the bid you selected will automatically be placed into the Project Management and Estimate Worksheet forms.